Internet.Works 39/Issue 39.iso/pc/Utilities/00024_Tool3.ls

Text File | 2000-10-18 | 721 b | 30 lines

on mouseWithin
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title3").foreColor = 0
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      cursor(280)
      sprite(the currentSpriteNum).foreColor = 255
      member("Title3").foreColor = 0
    end if
  end if
end

on mouseLeave
  cursor(0)
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title3").foreColor = 0
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      sprite(the currentSpriteNum).foreColor = 246
      member("Title3").foreColor = 255
    end if
  end if
end

on mouseDown
  go("Title3")
end